0 ZE$=""+CHR$(190)+CHR$(193)+CHR$(201)+CHR$(193)+CHR$(190)+CHR$(128)+"
1 CC$[178]""[170][199](13)[170]"
2 GOSUB600:A$(1)="[200]AUPTFORMULAR":A$(2)="[203]OPIE FUER [197]INREICHER
3 FL[178]48:RR$[178]"2.16":A$(3)[178]"CHR$UTSCHRIFT":[129]I[178]1[164]FL:XY$[178]XY$[170]"-":[130]
4 AF$[178]""[170][199](128)[170][199](144)[170][199](128)[170][199](144):A$(4)[178]"PEEKLANKO
5 PRINT"[147][213]EBERWEISUNGSFORMULARE BEDRUCKEN        (KOMPLETT)
6 [153]"(null)IT AUTOMATISCHEM PEEK(null)(null)-(null)ERZEICHNIS":[153]"NH-151088-ARR REV"RR$
7 [153]"(null)RO (null)EILE MAX."FL"(null)EICHEN EINGEBEN
8 PRINT"[213]EBERWEISUNGSNUMMER "UN$
10 INPUT"[196]ATUM   [212][212][205][205]90[157][157][157][157][157][157][157][157]";D$:IFLEN(D$)><6THEN10
12 D1$=LEFT$(D$,2):IFVAL(D1$)<1ORVAL(D1$)>31THEN10
14 D3$=RIGHT$(D$,2):IFVAL(D3$)<88THEN10
16 D2$=MID$(D$,3,2):IFVAL(D2$)<1ORVAL(D2$)>12THEN10
18 A$=D1$:GOSUB100:D1$=B$
20 A$=D2$:GOSUB100:D2$=B$
22 A$=D3$:GOSUB100:D$=D1$+"."+D2$+"."+B$
24 UE$=""+CHR$(188)+CHR$(193)+CHR$(192)+CHR$(161)+CHR$(252)+CHR$(128)+"
30 [133]"(null)AME DES VALMPFAENGERS ";EP$:[139][195](EP$)[177]FL[176]EP$[178]""[167]30
35 A$[178]EP$:[141]100:EP$[178]B$
40 [133]"SEINE (null)ONTONUMMER ";KP$:[139]KP$[178]""[176][195](KP$)[177]10[167]40
45 A$[178]KP$:[141]100:KP$[178]B$
50 [133]"              PEEK(null)(null) ";BZ$:[139][195](BZ$)[179][177]8[175]BZ$[177]""[167]50
52 [141]5000
55 A$[178]BZ$:[141]100:BZ$[178]B$
56 A[178][194](214):[153]""BK$:[151]214,A:[158]58732
60 [133]"     BEI RIGHT$NSTITUT ";BK$:[139][195](BK$)[177]FL[176]BK$[178]""[167]60
65 A$[178]BK$:[141]100:BK$[178]B$
70 [133]"PEEKETRAG STR$(null)   0.00CMDCMDCMDCMDCMDCMD";DM$:[139][195](DM$)[177]11[176][195](DM$)[179]3[167]70
71 DM[178][197](DM$):[141]500
75 A$[178]DM$:[141]100:DM$[178]"*"[170]B$[170]"--
80 PRINT"[194]ITTE [214]ERWENDUNGSZWECK EINGEBEN ! (MAX."FL*2"[218]EICHEN)
85 [133]V$:[139][195](V$)[177]FL[172]2[167]80
95 V1$[178][200](V$,FL):[139]V1$[178]""[167]V$[178]"(null)EBERWEISUNG":[137]95
96 V2$[178][202](V$,FL[170]1):[139]V2$[178]""[167]V2$[178]XY$
97 [139][200](V2$,1)[178]" "[167]V2$[178][201](V2$,[195](V2$)[171]1):[137]97
98 A$[178]V1$:[141]100:V1$[178]B$:A$[178]V2$:[141]100:V2$[178]B$
99 [141]150:[141]160:[137]200
100 [143] ZERO
102 B$[178]"":[129]JI[178]1[164][195](A$)
104 C$[178][202](A$,JI,1):[139]C$[178]"0"[167]C$[178]ZE$
106 B$[178]B$[170]C$:[130]:[142]
150 [153]"PEEKLANKO BEDRUCKEN ? [J/N]
152 POKE198,.
154 GETA$:IFA$<>"J"ANDA$<>"N"THEN154
156 NH=3:IFA$="J"THENNH=4
158 RETURN
160 PRINT"[193]DRESSE AUF [211]EITE 3 DRUCKEN ? [J/N]
162 [151]198,.
164 [161]AE$:[139]AE$[179][177]"J"[175]AE$[179][177]"N"[167]164
168 [142]
200 [153]"ASCORMULARE NACHEINANDER EINLEGEN:":A$[178]RR$:[141]100:RR$[178]B$
202 [153]"STR$RUCKKOPFOBERKANTE AN ASCORMULAROBERKANTE
203 A$=UN$:GOSUB100:UN$=B$
204 PRINT"[204]INKEN [210]AND AN RECHTEN [203]LEBSTREIFENRAND
206 [153]"8 (null)INES PER INCH (KLEINER ATNBSTAND)
207 FORI=1TONH:PRINT""A$(I)" ([211]EITE"I"[157])
208 [151]198,.:[146]198,1
210 [153]"(null)KAY. STR$RUCK LAEUFT
220 OPEN4,4,7:PRINT#4,"";
230 IFI<>3THENPRINT#4,"28 "D$;:IFI=1THENPRINT#4,"38[145][214]";
231 IFAE$="N"ORI<>3THEN240
232 PRINT#4,"31[206]IKOLAUS [200]EUSLER
233 [152]4,"31(null)WENGAUERWEG  18
234 PRINT#4,"318"ZE$ZE$ZE$"  [205]"UE$"NCHEN 71":PRINT#4:GOTO250
240 PRINT#4,CC$CC$CC$CC$CC$;
250 PRINT#4,"04 "EP$:PRINT#4,CC$CC$;
260 PRINT#4,"04 "KP$"38 "BZ$:PRINT#4,CC$CC$;
270 PRINT#4,"04 "BK$:PRINT#4,CC$
280 PRINT#4,"27 "DM$:PRINT#4,CC$
290 PRINT#4,"04 "V1$:PRINT#4,CC$CC$;
295 PRINT#4,"04 "V2$:PRINT#4,CC$
300 PRINT#4,"05[206]IKOLAUS [200]EUSLER";:IFI=3THENPRINT#4,"38 "D$;
305 PRINT#4:PRINT#4,CC$"28 "AF$CC$;
310 PRINT#4,"05734672929[213][194] REV"RR$" "UN$"-"CHR$(48+I)
312 CLOSE4:NEXT
350 PRINT"  [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
352 [153]"  (null) ATNLENLEFT$(null)(null)(null)CHR$: (null)NBEDINGT DEN (null)
354 PRINT"  [221] AUF DEM  [198]ORMULAR AUF- [221]
356 [153]"  (null) GEDRUCKTEN PEEKVAL(null)(null)ATNCHR$  GE- (null)
358 PRINT"  [221] NAU  PRUEFEN !  [198]EHLER [221]
360 [153]"  (null) AUFGRUND VON (null)UNDUNGS- (null)
362 PRINT"  [221] FEHLERN SIND NICHT 100 [221]
364 [153]"  (null) PROZENTIG AUSGESCHLOS- (null)
366 PRINT"  [221] SEN !                  [221]
368 [153]"  /TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP
400 PRINT"[198]ERTIG !!":POKE198,.:END
500 DM=INT(DM*100+.5)/100
502 DM$=STR$(INT(DM)):DM$=MID$(DM$,2)
504 DH$="
506 [139][195](DM$)[179]4[167]512
508 DH$[178]"."[170][201](DM$,3)[170]DH$
510 DM$[178][200](DM$,[195](DM$)[171]3):[137]506
512 DH$[178]DM$[170]DH$[170]",
514 DM=DM-INT(DM):DM=INT(.5+DM*100):DM$=STR$(DM):DM$=MID$(DM$,2)
516 DM$=DH$+DM$+LEFT$("00",2-LEN(DM$)):RETURN
600 POKE54287,100:POKE54290,129
602 UN$="":FORKL=1TO5:UN$=UN$+CHR$(48+PEEK(54299)/25.6):NEXT
610 RETURN
5000 B1$=LEFT$(BZ$,2):B2$=MID$(BZ$,4,3):B3$=MID$(BZ$,3,4):B4$=LEFT$(BZ$,3)
5001 B5$=LEFT$(BZ$,1):B6$=MID$(BZ$,4,1)
5002 IFB6$="0"THENC2$="[204][218][194]
5003 [139]B6$[178]"1"[167]C2$[178]"(null)OSTGIROAMT
5004 IFB6$="2"ORB6$="3"THENC2$="[208]RIVATBANK
5005 [139]B6$[178]"4"[167]C2$[178]"LENOMMERZBANK
5006 IFB6$="5"THENC2$="[211]PARKASSE
5007 [139]B6$[178]"6"[167]C2$[178]"(null)AIFFEISENBANK
5008 IFB6$="7"THENC2$="[196]EUTSCHE [194]ANK
5009 [139]B6$[178]"8"[167]C2$[178]"STR$RESDNER PEEKANK
5010 IFB6$="9"THENC2$="[214]OLKSBANK
5014 [139]B2$[178]"101"[167]C2$[178]"PEEKFCHR$
5018 IFB2$="107"THENC2$="[196]EUTSCHE [211]PAR & [203]REDITBANK
5020 [139]B2$[178]"108"[167]C2$[178]"ALLGEM. ELSAESSISCHE PEEKANK
5026 IFB2$="200"THENC2$="[200]YPOBANK
5028 [139]B2$[178]"202"[167]C2$[178]"PEEKAYER. (null)EREINSBANK
5030 IFB2$="204"THENC2$="[215]ESTMISTER [194]ANK
5032 [139]B2$[178]"205"[167]C2$[178]"PEEKANK FUER (null)OZIALWIRTSCHAFT
5040 IFB2$="300"THENC2$="[214]EREINS- UND [215]ESTBANK
5042 [139]B2$[178]"301"[167]C2$[178]"PEEKANKHAUS (null)AX ASCLESSA
5044 IFB2$="302"THENC2$="[212]AXIS [194]ANK
5046 [139]B2$[178]"303"[167]C2$[178]"(null)EUSCHELBANK
5048 IFB2$="304"THENC2$="[194]ANKHAUS [205]ERCK & [195]O
5050 [139]B2$[178]"306"[167]C2$[178]"PEEKANKHAUS ATNUFHAEUSER
5052 IFB2$="308"THENC2$="[205]AFFEIBANK
5056 [139]B2$[178]"330"[167]C2$[178]"(null)CHMIDBANK
5066 IFB2$="500"THENC2$="[204]ANDESBANK [199]IROZENTRALE
5068 [139]B2$[178]"501"[167]C2$[178]"CHR$IROKASSE
5070 IFB2$="514"THENC2$="[203]REIS- & [211]TADTSPARKASSE
5072 [139]B2$[178]"521"[167]C2$[178]"(null)REISSPARKASSE
5080 IFB2$="604"THENC2$="[211]PAR- & [196]ARLEHENSKASSE
5082 [139]B2$[178]"605"[167]C2$[178]"(null)PAR- & (null)REDITBANK
5084 IFB2$="626"THENC2$="[214]OLKSBANK
5086 [139]B2$[178]"628"[167]C2$[178]"(null)OLKS- & (null)AIFFEISENBANK
5088 IFB2$="693"THENC2$="EVANG. [211]PAR- & [203]REDITBANK
5097 [139]B2$[178]"901"[167]C2$[178]"(null)EKOBANK
5098 IFB2$="906"THENC2$="[196]TSCH. [193]POTHEKER- & [193]ERZTEBANK
5100 [139]B5$[178]"0"[167]C1$[178]"ATNUSLAND
5102 IFB5$="1"THENC1$="[194]ERLIN
5104 [139]B5$[178]"2"[167]C1$[178]"LEFT$AMBURG
5106 IFB5$="3"THENC1$="[196]UESSELDORF
5108 [139]B5$[178]"4"[167]C1$[178]"(null)UENSTER
5110 IFB5$="5"THENC1$="[198]RANKFURT
5112 [139]B5$[178]"6"[167]C1$[178]"(null)TUTTGART
5114 IFB5$="7"THENC1$="[205]UENCHEN
5200 [139]B1$[178]"21"[167]C1$[178]"(null)IEL
5203 IFB1$="23"THENC1$="[204]UEBECK
5204 [139]B1$[178]"24"[167]C1$[178]"(null)UENEBURG
5205 IFB1$="25"THENC1$="[200]ANNOVER
5206 [139]B1$[178]"26"[167]C1$[178]"CHR$OETTINGEN
5207 IFB1$="27"THENC1$="[194]RAUNSCHWEIG
5208 [139]B1$[178]"28"[167]C1$[178]"(null)LDENBURG
5209 IFB1$="29"THENC1$="[194]REMEN
5231 [139]B1$[178]"31"[167]C1$[178]"(null)OENCHENGLADBACH
5232 IFB1$="32"THENC1$="[203]REFELD
5233 [139]B1$[178]"33"[167]C1$[178]"(null)UPPERTAL
5234 IFB1$="34"THENC1$="[210]EMSCHEID
5235 [139]B1$[178]"35"[167]C1$[178]"STR$UISBURG
5236 IFB1$="36"THENC1$="[197]SSEN
5237 [139]B1$[178]"37"[167]C1$[178]"(null)OELN
5238 IFB1$="38"THENC1$="[194]ONN
5239 [139]B1$[178]"39"[167]C1$[178]"ATNACHEN
5261 IFB1$="41"THENC1$="[200]AMM
5262 [139]B1$[178]"42"[167]C1$[178]"CHR$ELSENKIRCHEN
5263 IFB1$="43"THENC1$="[194]OCHUM
5264 [139]B1$[178]"44"[167]C1$[178]"STR$ORTMUND
5265 IFB1$="45"THENC1$="[200]AGEN
5266 [139]B1$[178]"46"[167]C1$[178]"(null)IEGEN
5268 IFB1$="48"THENC1$="[194]IELEFELD
5269 [139]B1$[178]"49"[167]C1$[178]"(null)INDEN
5271 IFB1$="51"THENC1$="[215]IESBADEN
5272 [139]B1$[178]"52"[167]C1$[178]"(null)ASSEL
5273 IFB1$="53"THENC1$="[198]ULDA
5274 [139]B1$[178]"54"[167]C1$[178]"(null)AISERSLAUTERN
5275 IFB1$="55"THENC1$="[205]AINZ
5276 [139]B1$[178]"56"[167]C1$[178]"PEEKAD (null)REUZNACH
5277 IFB1$="57"THENC1$="[203]OBLENZ
5279 [139]B1$[178]"59"[167]C1$[178]"(null)AARBRUECKEN
5282 IFB1$="61"THENC1$="[199]OEPPINGEN
5283 [139]B1$[178]"62"[167]C1$[178]"LEFT$EILBRONN
5284 IFB1$="63"THENC1$="[213]LM
5285 [139]B1$[178]"64"[167]C1$[178]"(null)EUTLINGEN
5286 IFB1$="65"THENC1$="[210]AVENSBERG
5287 [139]B1$[178]"66"[167]C1$[178]"(null)ARLSRUHE
5288 IFB1$="67"THENC1$="[205]ANNHEIM
5289 [139]B1$[178]"68"[167]C1$[178]"ASCREIBURG
5290 IFB1$="69"THENC1$="[203]ONSTANZ
5291 [139]B1$[178]"71"[167]C1$[178]"PEEKAD (null)EICHENHALL
5292 IFB1$="72"THENC1$="[193]UGSBURG
5293 [139]B1$[178]"73"[167]C1$[178]"(null)LM
5294 IFB1$="74"THENC1$="[208]ASSAU
5295 [139]B1$[178]"75"[167]C1$[178]"(null)EGENSBURG
5296 IFB1$="76"THENC1$="[206]UERNBERG
5297 [139]B1$[178]"77"[167]C1$[178]"PEEKAMBERG
5298 IFB1$="78"THENC1$="[200]OF
5299 [139]B1$[178]"79"[167]C1$[178]"(null)UERZBURG
5300 IFB4$="215"THENC1$="[198]LENSBURG
5301 [139]B4$[178]"259"[167]C1$[178]"LEFT$ILDESHEIM
5302 IFB4$="265"THENC1$="[207]SNABRUECK
5303 [139]B4$[178]"292"[167]C1$[178]"PEEKREMERHAVEN
5304 IFB4$="305"THENC1$="[206]EUSS
5305 [139]B4$[178]"314"[167]C1$[178]"(null)IERSEN
5306 IFB4$="324"THENC1$="[203]LEVE
5307 [139]B4$[178]"375"[167]C1$[178]"(null)EVERKUSEN
5308 IFB4$="478"THENC1$="[199]UETERSLOH
5309 [139]B4$[178]"505"[167]C1$[178]"(null)FFENBACH
5310 IFB4$="506"THENC1$="[200]ANAU
5311 [139]B4$[178]"507"[167]C1$[178]"CHR$ELNHAUSEN
5312 IFB4$="508"THENC1$="[196]ARMSTADT
5313 [139]B4$[178]"509"[167]C1$[178]"PEEKENSHEIM
5314 IFB4$="511"THENC1$="[204]IMBURG
5315 [139]B4$[178]"513"[167]C1$[178]"CHR$IESSEN
5316 IFB4$="515"THENC1$="[215]ETZLAR
5317 [139]B4$[178]"516"[167]C1$[178]"STR$ILLENBURG
5318 IFB4$="518"THENC1$="[198]RIEDBERG
5319 [139]B4$[178]"522"[167]C1$[178]"VALSCHWEGE
5320 IFB4$="523"THENC1$="[203]ORBACH
5321 [139]B4$[178]"532"[167]C1$[178]"PEEKAD LEFT$ERSFELD
5322 IFB4$="533"THENC1$="[205]ARBURG
5323 [139]B4$[178]"542"[167]C1$[178]"(null)IRMASENS
5324 IFB4$="545"THENC1$="[204]UDWIGSHAFEN
5325 [139]B4$[178]"546"[167]C1$[178]"(null)EUSTADT
5326 IFB4$="547"THENC1$="[211]PEYER
5327 [139]B4$[178]"548"[167]C1$[178]"(null)ANDAU
5328 IFB4$="553"THENC1$="[215]ORMS
5329 [139]B4$[178]"562"[167]C1$[178]"RIGHT$DAR-(null)BERSTEIN
5330 IFB4$="573"THENC1$="[194]ETZDORF
5331 [139]B4$[178]"574"[167]C1$[178]"(null)EUWIED
5332 IFB4$="576"THENC1$="[205]AYEN
5333 [139]B4$[178]"577"[167]C1$[178]"(null)EMAGEN
5334 IFB4$="585"THENC1$="[212]RIER
5335 [139]B4$[178]"586"[167]C1$[178]"PEEKITBURG
5336 IFB4$="587"THENC1$="[215]ITTICH
5337 [139]B4$[178]"592"[167]C1$[178]"(null)EUNKIRCHEN
5338 IFB4$="593"THENC1$="[211]AARLOUIS
5339 [139]B4$[178]"594"[167]C1$[178]"(null)T. RIGHT$NGBERT
5340 IFB4$="602"THENC1$="[215]AIBLINGEN
5341 [139]B4$[178]"603"[167]C1$[178]"(null)INDELFINGEN
5342 IFB4$="604"THENC1$="[204]UDWIGSBURG
5343 [139]B4$[178]"611"[167]C1$[178]"VALSSLINGEN
5344 IFB4$="612"THENC1$="[206]UERTINGEN
5345 [139]B4$[178]"613"[167]C1$[178]"(null)CHWAEBISCH CHR$MUEND
5346 IFB4$="614"THENC1$="[193]ALEN
5347 [139]B4$[178]"622"[167]C1$[178]"(null)CHWAEBISCH LEFT$ALL
5348 IFB4$="632"THENC1$="[200]EIDENHEIM
5349 [139]B4$[178]"641"[167]C1$[178]"(null)UEBINGEN
5350 IFB4$="642"THENC1$="[210]OTTWEIL
5351 [139]B4$[178]"643"[167]C1$[178]"(null)UTTLINGEN
5352 IFB4$="651"THENC1$="[198]RIEDRICHSHAFEN
5353 [139]B4$[178]"653"[167]C1$[178]"ATNLBSTADT
5354 IFB4$="654"THENC1$="[194]IBERACH
5355 [139]B4$[178]"662"[167]C1$[178]"PEEKADEN-PEEKADEN
5356 IFB4$="663"THENC1$="[194]RUCHSAL
5357 [139]B4$[178]"664"[167]C1$[178]"(null)FFENBURG
5358 IFB4$="665"THENC1$="[210]ASTATT
5359 [139]B4$[178]"666"[167]C1$[178]"(null)FORZHEIM
5361 IFB4$="672"THENC1$="[200]EIDELBERG
5362 [139]B4$[178]"673"[167]C1$[178]"(null)AUBERBISCHOFSHEIM
5363 IFB4$="674"THENC1$="[205]OSBACH
5365 [139]B4$[178]"682"[167]C1$[178]"(null)AHR
5366 IFB4$="683"THENC1$="[204]OERRACH
5367 [139]B4$[178]"684"[167]C1$[178]"PEEKAD (null)AECKINGEN
5368 IFB4$="692"THENC1$="[211]INGEN
5369 [139]B4$[178]"694"[167]C1$[178]"(null)ILLINGEN-(null)CHWENNINGEN
5371 IFB4$="703"THENC1$="[199]ARMISCH-[208]ARTENKIRCHEN
5372 [139]B4$[178]"711"[167]C1$[178]"(null)OSENHEIM
5373 IFB4$="721"THENC1$="[201]NGOLSTADT
5374 [139]B4$[178]"722"[167]C1$[178]"(null)OERDLINGEN
5376 IFB4$="733"THENC1$="[203]EMPTEN
5377 [139]B4$[178]"734"[167]C1$[178]"(null)AUFBEUREN
5378 IFB4$="735"THENC1$="[204]INDAU
5380 [139]B4$[178]"741"[167]C1$[178]"STR$EGGENDORF
5381 IFB4$="742"THENC1$="[211]TRAUBING
5382 [139]B4$[178]"743"[167]C1$[178]"(null)ANDSHUT
5385 IFB4$="752"THENC1$="[193]MBERG
5386 [139]B4$[178]"753"[167]C1$[178]"(null)EIDEN
5389 IFB4$="762"THENC1$="[198]UERTH
5390 [139]B4$[178]"763"[167]C1$[178]"VALRLANGEN
5391 IFB4$="764"THENC1$="[211]CHWABACH
5392 [139]B4$[178]"765"[167]C1$[178]"ATNNSBACH
5393 IFB4$="771"THENC1$="[203]ULMBACH
5394 [139]B4$[178]"773"[167]C1$[178]"PEEKAYREUTH
5395 IFB4$="781"THENC1$="[205]ARKTREDWITZ
5396 [139]B4$[178]"783"[167]C1$[178]"LENOBURG
5397 IFB4$="791"THENC1$="[203]ITZINGEN
5398 [139]B4$[178]"793"[167]C1$[178]"(null)CHWEINFURT
5399 IFB4$="795"THENC1$="[193]SCHAFFENBURG
5400 [139]B3$[178]"1103"[167]C2$[178]"(null)UMITOMO PEEKANK
5402 IFB3$="1105"THENC2$="[200]YPOBANK
5404 [139]B3$[178]"1107"[167]C2$[178]"PEEKANK OF (null)OKYO
5406 IFB3$="1200"THENC2$="[194]ERLINER [194]ANK
5408 [139]B3$[178]"1500"[167]C2$[178]"(null)TADTSPARKASSE
5410 IFB3$="1600"THENC2$="[196]T. [199]ENOSSENSCH. [194]ANK
5412 [139]B3$[178]"1900"[167]C2$[178]"(null)OLKSBANK
5414 IFB3$="1901"THENC2$="[205]UENCHNER [194]ANK
5416 [139]B3$[178]"2501"[167]C2$[178]"(null)REISSPARKASSE
5418 IFB3$="2202"THENC2$="[194][200][198]
5449 [143] RZ = RECHENZENTRUM
5450 [139]B4$[178]"198"[167]C1$[178]"(null)(null) PEEKERLIN
5451 IFB4$="295"THENC1$="[210][218] [194]REMEN
5452 [139]B4$[178]"296"[167]C1$[178]"(null)(null) LEFT$ANNOVER
5453 IFB4$="297"THENC1$="[210][218] [203]IEL
5454 [139]B4$[178]"298"[167]C1$[178]"(null)(null) LEFT$AMBURG
5455 IFB4$="498"THENC1$="[210][218] [196]UESSELDORF
5456 [139]B4$[178]"596"[167]C1$[178]"(null)(null) (null)AINZ
5457 IFB4$="597"THENC1$="[210][218] [211]AARBRUECKEN
5458 [139]B4$[178]"598"[167]C1$[178]"(null)(null) ASCRANKFURT
5459 IFB4$="698"THENC1$="[210][218] [211]TUTTGART
5460 [139]B4$[178]"798"[167]C1$[178]"(null)(null) (null)UENCHEN
5500 IFB4$="206"THENC1$="[200]AMBURG-[193]LTONA
5502 [139]B4$[178]"207"[167]C1$[178]"LEFT$AMBURG-LEFT$ARBURG
5504 IFB4$="212"THENC1$="[206]EUMUENSTER
5506 [139]B4$[178]"213"[167]C1$[178]"(null)EUSTADT
5508 IFB4$="214"THENC1$="[210]ENDSBURG
5510 [139]B4$[178]"217"[167]C1$[178]"LEFT$USUM
5512 IFB4$="218"THENC1$="[200]EIDE
5514 [139]B4$[178]"221"[167]C1$[178]"VALLMSHORN
5516 IFB4$="222"THENC1$="[201]TZEHOE
5518 [139]B4$[178]"241"[167]C1$[178]"LENUXHAVEN
5520 IFB4$="254"THENC1$="[200]AMELN
5522 [139]B4$[178]"255"[167]C1$[178]"(null)TADTHAGEN
5524 IFB4$="256"THENC1$="[206]IENBURG
5526 [139]B4$[178]"257"[167]C1$[178]"LENELLE
5528 IFB4$="258"THENC1$="[213]ELZEN
5530 [139]B4$[178]"262"[167]C1$[178]"(null)ORTHEIM
5532 IFB4$="263"THENC1$="[207]STERODE
5534 [139]B4$[178]"266"[167]C1$[178]"(null)INGEN
5536 IFB4$="267"THENC1$="[206]ORDHORN
5538 [139]B4$[178]"268"[167]C1$[178]"CHR$OSLAR
5540 IFB4$="272"THENC1$="[200]OLZMINDEN
5542 [139]B4$[178]"282"[167]C1$[178]"(null)ILHELMSHAVEN
5544 IFB4$="284"THENC1$="[197]MDEN
5546 [139]B4$[178]"285"[167]C1$[178]"(null)EER
5548 IFB4$="342"THENC1$="[211]OLINGEN
5550 [139]B4$[178]"354"[167]C1$[178]"(null)OERS
5552 IFB4$="356"THENC1$="[215]ESEL
5554 [139]B4$[178]"362"[167]C1$[178]"(null)UELHEIM
5556 IFB4$="365"THENC1$="[207]BERHAUSEN
5558 [139]B4$[178]"382"[167]C1$[178]"VALUSKIRCHEN
5560 IFB4$="384"THENC1$="[199]UMMERSBACH
5562 [139]B4$[178]"386"[167]C1$[178]"(null)IEGBURG
5564 IFB4$="395"THENC1$="[196]UEREN
5566 [139]B4$[178]"403"[167]C1$[178]"(null)HEINE
5568 IFB4$="412"THENC1$="[194]ECKUM
5570 [139]B4$[178]"414"[167]C1$[178]"(null)OEST
5572 IFB4$="416"THENC1$="[204]IPPSTADT
5574 [139]B4$[178]"426"[167]C1$[178]"(null)ECKLINGHAUSEN
5576 IFB4$="428"THENC1$="[194]OCHOLT
5578 [139]B4$[178]"443"[167]C1$[178]"(null)NNA
5580 IFB4$="445"THENC1$="[201]SERLOHN
5582 [139]B4$[178]"452"[167]C1$[178]"(null)ITTEN
5584 IFB4$="458"THENC1$="[204]UEDENSCHEID
5586 [139]B4$[178]"462"[167]C1$[178]"(null)LPE
5588 IFB4$="464"THENC1$="[193]RNSBERG
5590 [139]B4$[178]"472"[167]C1$[178]"(null)ADERBORN
5592 IFB4$="476"THENC1$="[196]ETMOLD
5594 [139]B4$[178]"482"[167]C1$[178]"(null)EMGO
5596 IFB4$="492"THENC1$="[194]UENDE
5598 [139]B4$[178]"494"[167]C1$[178]"LEFT$ERFORD
5600 BK$=C2$+" "+C1$:IFC2$=""THENBK$=C1$
5602 RETURN